home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / ANIMATED ANAGRAMS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  75 lines
  1. 1  REM  +-------------------+       + ANIMATED ANAGRAMS +       +                   +       +  KARL S. WITTMAN  +       +                   +       +     USING THE     +       + GRAPHICS MAGICIAN +       +-------------------+<CTRL-J><CTRL-J>
  2. 2  GOSUB 1000
  3. 3  TEXT : HOME : VTAB 10: INVERSE : PRINT "INSTRUCTIONS";: NORMAL : INPUT " (Y/N) ? ";AN$: IF AN$ = "Y"  THEN  GOSUB 2000
  4. 4  HOME : VTAB 10: FLASH : PRINT "LOADING PROGRAM ... ": NORMAL 
  5. 5  HIMEM: 26139
  6. 10  PRINT  CHR$(4);"BLOAD LETTERS.ANM"
  7. 15  HGR2 
  8. 20 KK = 0
  9. 25  ONERR  GOTO 999
  10. 30  READ A$,ANA$
  11. 35 B$ = ""
  12. 40  IF  LEN(A$) >28  THEN 30
  13. 50  HGR : HOME 
  14. 55  HTAB 1: VTAB 21: PRINT "YOUR ANSWER:";
  15. 56  HTAB 1: VTAB 23: PRINT "TIME= ";
  16. 60  FOR I = 1 TO  LEN(A$)
  17. 65 A =  ASC( MID$ (A$,I,1)) -65
  18. 70  IF A <0  OR A >25  THEN  POKE 37888 +I -1,26: GOTO 80
  19. 75  POKE 37888 +I -1,A
  20. 80  NEXT I
  21. 90  FOR J = I TO 28: POKE 37888 +J -1,26: NEXT : POKE 37916,255
  22. 100  CALL 36928
  23. 101 TT = 14
  24. 104 KK = KK +1
  25. 105  VTAB 23: HTAB 7: INVERSE : PRINT  INT(KK/TT);: NORMAL : PRINT " SECONDS"
  26. 106  IF KK = 200  THEN  PRINT  CHR$(7): FLASH : HOME : VTAB 21: PRINT "TIME IS UP.";: NORMAL : PRINT " THE ANSWER IS ";: INVERSE : PRINT ANA$: NORMAL : FOR P = 1 TO 2000: NEXT P: GOTO 20
  27. 108  IF  PEEK( -16384) <127  THEN 100
  28. 109  POKE 49168,0: IF  PEEK( -16384) = 13  THEN 122
  29. 110 B$ = B$ + CHR$( PEEK( -16384)): VTAB 21: HTAB 13: PRINT B$;
  30. 115  GOTO 100
  31. 120  VTAB 21: HTAB 13: INPUT "";B$: IF B$ = ANA$  THEN  VTAB 22: HTAB 13: INVERSE : PRINT "CORRECT": NORMAL : FOR P = 1 TO 750: NEXT P: GOTO 20
  32. 122  VTAB 21: HTAB 13: PRINT B$;: IF B$ = ANA$  THEN  VTAB 22: HTAB 13: INVERSE : PRINT "CORRECT": NORMAL : FOR P = 1 TO 750: NEXT P: GOTO 20
  33. 125  IF B$ = "/"  THEN 999
  34. 130  VTAB 21: CALL  -868: INVERSE : PRINT "WRONG. TRY AGAIN.": NORMAL :B$ = "": FOR P = 1 TO 750: NEXT P: VTAB 21: CALL  -868: PRINT "YOUR ANSWER:";: GOTO 100
  35. 300  REM <CTRL-J><CTRL-J> >  DATA GOES HERE <         >                 <         >  SCRAMBLED WORD <         >     IS FIRST    <         >  CORRECT   WORD <         >     IS NEXT     <<CTRL-J><CTRL-J>
  36. 305  DATA  OUSEH,HOUSE
  37. 310  DATA  ROWD,WORD
  38. 315  DATA  YBBA,BABY
  39. 320  DATA  FHSI,FISH
  40. 325  DATA  AIRN,RAIN
  41. 330  DATA  AHT,HAT
  42. 335  DATA  OKBO,BOOK
  43. 340  DATA  BLETA,TABLE
  44. 345  DATA  PJUM,JUMP
  45. 350  DATA  NDCAY,CANDY
  46. 355  DATA  PLAPE,APPLE
  47. 360  DATA  HULSGOA,GOULASH
  48. 365  DATA  OCEAN,CANOE
  49. 999  TEXT : HOME : PRINT "NO MORE WORDS. GOODBYE.": PRINT : PRINT  CHR$(4)"RUN MENU"
  50. 1000  REM  OPENING ROUTINE
  51. 1005  TEXT : HOME : HTAB 5: VTAB 10: INVERSE : PRINT "+++ ANIMATED ANAGRAMS +++": NORMAL 
  52. 1010  HTAB 8: VTAB 12: PRINT "BY KARL S. WITTMAN"
  53. 1015  HTAB 4: VTAB 18: PRINT "USING THE GRAPHICS MAGICIAN"
  54. 1018  HTAB 8: PRINT "BY PENGUIN SOFTWARE"
  55. 1020  PRINT  CHR$(4);"BLOAD ANANA.ANM"
  56. 1022  HGR2 
  57. 1025  HGR : POKE  -16302,0
  58. 1030  CALL 36928
  59. 1040 K = K +1
  60. 1050  IF K = 200  THEN  RETURN 
  61. 1055  IF K = 250  THEN  RETURN 
  62. 1060  GOTO 1030
  63. 2000  REM  INSTRUCTIONS
  64. 2005  HOME 
  65. 2010  HTAB 10: PRINT "INSTRUCTIONS"
  66. 2020  HTAB 10: PRINT "------------"
  67. 2025  VTAB 5
  68. 2030  PRINT "A SERIES OF ANIMATED ANAGRAMS WILL"
  69. 2035  PRINT "BE SHOWN ON THE SCREEN ONE AT A"
  70. 2040  PRINT "TIME. TYPE YOUR ANSWER AND THEN"
  71. 2045  PRINT "<RETURN> TO SEE IF YOU ARE CORRECT."
  72. 2050  PRINT "YOU GET 15 SECONDS IN WHICH TO"
  73. 2055  PRINT "RESPOND TO EACH ANAGRAM. GOOD LUCK."
  74. 2060  VTAB 23: PRINT "PRESS ANY KEY TO CONTINUE.";: GET ANY$
  75. 2070  RETURN